home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 January / com! 2002.01.iso / geld / calcant / mail.pl < prev    next >
Encoding:
Perl Script  |  2001-09-05  |  1.6 KB  |  51 lines
  1. #!/usr/bin/perl
  2.  
  3. use CGI qw(:standard);
  4.  
  5. my $kategorie = param('Kategorie');
  6. my $anrede = param('Anrede');
  7. my $name = param('Name');
  8. my $email = param('email');
  9. my $text = param('Nachricht');
  10.  
  11.  
  12. my $MailPgm = '/usr/sbin/sendmail';
  13. my $Mail = 'info@calcant.de';
  14. my $From = $anrede . ' ' . $name . ' <' . $email . '>';
  15. my $Subject = $kategorie;
  16.  
  17. open (MAIL, "|$MailPgm $Mail") || die 'Content-type: text/html\n\n<html><head><title>Fehler!</title></head><p align="center">Fehler beim Zugriff auf ' . $MailPgm . '!</body></html>';
  18.  
  19. print MAIL "From: $From \n";
  20. print MAIL "Reply-To: $From \n";
  21. print MAIL "To: $Mail \n";
  22. print MAIL "Subject: $Subject \n \n";
  23. print MAIL $text;
  24. close MAIL;
  25.  
  26. print "Content-type: text/html\n\n";
  27. print '<html><head><title>eMail geschickt!</title><link rel="stylesheet" href="style.css"></head><body bgcolor="#FFFFFF">';
  28. print '<br><br><br><h3 align="center">Die eMail wurde erfolgreich abgeschikt. Sie werden bald von uns h÷ren!</h3>';
  29. print '<br><p align="center"><a href="kontakt.html">Klicken sie hier, um zur letzten Seite zurⁿck zu gelangen.</a><br>';
  30. print '<script language="JavaScript">'. "\n";
  31. print '<!-- ' . "\n";
  32. print 'var URL="kontakt.html";' . "\n";
  33. print "setTimeout('location.href = URL', 5000);" . "\n";
  34. print ' // -->' . "\n" . ' </script>';
  35.  
  36.  
  37. sub debug() {
  38.     print '<br>Kategorie: ' . $kategorie . "<br>\n";
  39.     print '<br>Anrede: ' . $anrede . "<br>\n";
  40.     print '<br>Name: ' . $name . "<br>\n";
  41.     print '<br>email: ' . $email . "<br>\n";
  42.     $text =~ s/\n/\<br\>/sig;
  43.     print '<br>Text: ' . $text . "<br>\n";
  44. }
  45.  
  46. #debug;
  47.     
  48. print '</body></html>';
  49.  
  50.  
  51.